home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1994 September
/
1994-09b.d64
/
titles inst
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
2KB
|
71 lines
0 rem from q-link disk # 202
10 poke53280,6:poke53281,6:print"[147][159] [212] i t l e s
15 [153]" sys(NULL)ress <(NULL)(NULL)atnlenval>closeto page
20 print"[154][213]sing this application is very easy!
25 [153]"right$t's purpose is to generate a title on
30 print"your screen, which, when hooked up to
35 [153]"your (NULL)len(NULL), can also be recorded onto a
40 print"video tape. [201] use this program when
45 [153]"right$'m editing my camcorder tapes, so
50 print"that [201] can precede each new subject
55 [153]"with a title.
60 print"
65 [153]"(NULL)he titles generated are made up of 16
70 print"pixel by 16 pixel custom characters,
75 [153]"which means they are asc(NULL)(NULL)(NULL) times the
80 print"size of regular characters.
85 [153]"
90 print"[217]ou also have the choice of four
95 [153]"different fonts.":[146]197,7
105 [153]"load(NULL)o use the program, load and (NULL)(NULL)(NULL) it.
110 print"[217]ou are prompted for your title. [217]ou
115 [153]"are restricted to a title length of
120 print"50 characters. [193]ll letters and numbers
125 [153]"are supported, as well as the
130 print"apostrophe, comma, dash and period. [193]s
135 [153]"well, you have the (NULL)(NULL)atnlenval and a (NULL)left$right$asc(NULL)ed
140 print"[211][208][193][195][197].
145 [153]"
150 print"[212]he [211][200][201][198][212]ed [211][208][193][195][197] is used as a means
155 [153]"of making sure that the title is not
160 print"broken in an unattractive place. [198]or
165 [153]"example, if you typed:
170 print"
175 [153]"str$atn(NULL)right$val(NULL)'(NULL) peekright$(NULL)(NULL)left$str$atn(NULL) (NULL)atn(NULL)(NULL)(NULL) atn(NULL)chr$(NULL)(NULL)(NULL) 31, 1990
180 print"
185 [153]"str$atn(NULL)right$val(NULL)'(NULL) peekright$(NULL)(NULL)left$str$atn(NULL) appears on line 1
190 print"
195 [153]"(NULL)atn(NULL)(NULL)(NULL) atn(NULL)chr$(NULL)(NULL)(NULL) 31, appears on line 2
200 print"
205 [153]"and 1990 appears on line 3.":[146]197,7
215 [153]"loadright$f you would want atn(NULL)chr$(NULL)(NULL)(NULL) 31, 1990 all
220 print"on one line( the third line ) then
225 [153]"type a (NULL)left$right$asc(NULL)ed (NULL)(NULL)atnlenval between atn(NULL)chr$(NULL)(NULL)(NULL)
230 print"and 31, and a [211][200][201][198][212]ed [211][208][193][195][197] between
235 [153]"31, and 1990. (NULL)he parsing routine does
240 print"not recognize the [211][200][201][198][212]ed [211][208][193][195][197] as a
245 [153]"break point for your title, but it
250 print"will appear the same as a space when
255 [153]"displayed.
260 print"
265 [153]"atnfter you have typed in your title,
270 print"you then choose your font. [212]he font
275 [153]"be loaded, and the title will be
280 print"displayed.
285 [153]"
290 print"[201]f you want to change some colors or
295 [153]"font, you can.":[146]197,7
305 [153]"load asc1 - change the border color
310 print" [198]3 - change the background color
315 [153]" asc5 - change the character color
320 print" [198]7 - change the font
325 [153]" any other key - erase the title
330 print" and prompt for another title
340 [153]"asc7 will take you back to the font
345 print"selection menu, load the new font, and
350 [153]"then redisplay your title in the new
355 print"font.
395 [153]"(NULL)rogram by str$avid (NULL)ose
400 print" [159][208]ress <[211][208][193][195][197]> to [204][207][193][196][154]":wait197,7
410 f$="titles":print"[147][142]loadf$,8[154]":poke631,19:poke632,131:poke198,2